home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / docs / lists / DevGuide.lha / DevGuide / CheckYourDevices < prev    next >
Text File  |  1998-10-30  |  2KB  |  68 lines
  1. ; CheckYourDevs V2.0
  2. ; © 10/1998 by Michaela Prüß & Heiko Schröder
  3.  
  4.  
  5. Echo "Device-Check V2.0*N© Michaela Prüß & Heiko Schröder 10/98"
  6. Echo "*NThe report will be written in RAM: and you can't stop the version scan!"
  7. Ask "Do you want to check your system devices? (Y/N)"
  8. If NOT WARN=5
  9.    Echo "CANCEL ..."
  10.    C:Quit
  11. EndIf
  12.  
  13. C:FailAt 100
  14. C:Copy DVC RAM:
  15. C:Copy C:Search RAM:
  16. C:Copy Scripts/DeviceList.dvc RAM:
  17. C:Copy MyCheck RAM:
  18. C:Copy MyCheck.rexx RAM:
  19. C:Copy MyConvert.rexx RAM:
  20.  
  21. Echo "List of all your devices*N--------------------------*N" >Ram:Dev-List
  22. Echo "List of your old devices*N--------------------------*N" >Ram:Dev-OldList
  23. Echo "List of new devices*NPlease contact me: age@thepentagon.com*Nand send this file to me. Thanks.*N--------------------------" >Ram:Dev-NewList
  24. Echo "For DevGuide I scan infos about your system:" >>Ram:Dev-NewList
  25. Version >>Ram:Dev-NewList
  26. C:CPU >>Ram:Dev-NewList
  27.  
  28. Echo "Starting Rexx"
  29. Sys:System/RexxMast >NIL:
  30.  
  31. Echo "Looking for Sys:Devs/#?.device"
  32. C:List Sys:Devs/ PAT=#?.device#? ALL quick nohead LFormat="Execute MyCheck %s%s" >Ram:List1
  33.  
  34. Sort Ram:List1 Ram:List1
  35.  
  36. Echo "Starting Check..."
  37. Protect MyCheck +s
  38. Execute Ram:List1
  39. Echo "*N*NREADY!*NThe result can be found at Ram:Dev-OldList and Ram:Dev-NewList ..."
  40. Echo "Please send me the RAM:Dev-NewList for updating the Device.guide.*N"
  41. Delete Ram:List1 QUIET
  42. Delete Ram:DVC QUIET
  43. Delete Ram:Search QUIET
  44. Delete Ram:DeviceList.dvc QUIET
  45. Delete Ram:MyCheck QUIET
  46. Delete Ram:MyCheck.rexx QUIET
  47. Delete Ram:MyConvert.rexx QUIET
  48.  
  49. Ask "Please press ENTER for next Step."
  50. C:CLS
  51.  
  52. ; Device Online Update Generating Script
  53.  
  54. Echo "Device Library Update Form Generator 1.0*N© 10/98 by Heiko Schröder*N"
  55. Ask "Next Step... *NDo you want to create a Form for updating devices online at http://www.amigasystem.org? (Y/N)"
  56. If NOT WARN=5
  57.    Echo "CANCEL ..."
  58.    Delete Ram:Dev-OnlineUpdate QUIET
  59.    C:Quit
  60. EndIf
  61. Echo "Generating Form..."
  62. rx MyOnlineUpdate.rexx
  63.  
  64. Delete Ram:Dev-OnlineUpdate QUIET
  65. Echo "Ready. Please load RAM:Dev-OnlineUpdate.html in your browser and follow the instructions."
  66. Ask "*NPress ENTER to end..."
  67. Wait 2 secs
  68.